home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / BlocNotes / PrepMail.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-26  |  656b  |  27 lines
  1. /*Simple script to create a mail form within a note*/
  2.  
  3. address 'blocnotes.rexx'
  4. options results
  5.  
  6. /*Get the id of the note*/
  7.  
  8. parse arg id .
  9.  
  10. ISANOTE id
  11. if result then do     /* Check if the id is valid*/
  12.    INFO id
  13.    infos=COMPRESS(result)        /* Check if the note is empty*/
  14.    if LENGTH(infos)=3 then do
  15.       SETINSTIME 0               /* Initialize default parameters */
  16.       INSERT id ON
  17.       EDIT id ON
  18.       SIZE id 0 0 640 300
  19.  
  20.       IMPORT id 'UULIB:.signature'  /* Import signature file(only one user, sorry!)*/
  21.  
  22.       GO id 0 0                   /*Insert To and Subject tags*/
  23.       PRINT id 'To:!nSubject:!N!N'
  24.       GO id 4 0
  25.    end
  26. end
  27.